Filename	(eval 162)[/usr/share/perl5/Apache/LogFormat/Compiler.pm:151]
Statements	Executed 0 statements in 0s

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
0	0	0	0s	0s	Apache::LogFormat::Compiler::::__ANON__[:21]Apache::LogFormat::Compiler::__ANON__[:21]

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					sub {
2					$_[TIME] = time() if ! defined $_[TIME];
3					my @lt = localtime($_[TIME]);
4					if ( ! exists $c->{tz_cache} || ! exists $c->{isdst_cache} || $lt[8] != $c->{isdst_cache} ) {
5			1	284µs	$c->{tz_cache} = POSIX::strftime::Compiler::strftime('%z',@lt); # spent 284µs making 1 call to POSIX::strftime::Compiler::strftime
6					$c->{isdst_cache} = $lt[8];
7					}
8					my $t = sprintf '%02d/%s/%04d:%02d:%02d:%02d %s', $lt[3], $abbr[$lt[4]], $lt[5]+1900,
9					$lt[2], $lt[1], $lt[0], $c->{tz_cache};
10			12	52µs	q!! . ($_[ENVS]->{REMOTE_ADDR} || '-') # spent 31µs making 6 calls to Apache::LogFormat::Compiler::_safe, avg 5µs/call # spent 21µs making 6 calls to Apache::LogFormat::Compiler::_string, avg 4µs/call
11					. q! ! . '-'
12					. q! ! . ($_[ENVS]->{REMOTE_USER} || '-')
13					. q! ! . '[' . $t . ']'
14					. q! "! . _safe($_[ENVS]->{REQUEST_METHOD}) . " " . _safe($_[ENVS]->{REQUEST_URI}) .
15					" " . $_[ENVS]->{SERVER_PROTOCOL}
16					. q!" ! . $_[RES]->[0]
17					. q! ! . (defined $_[LENGTH] ? $_[LENGTH] : '-')
18					. q! "! . _string($_[ENVS]->{'HTTP_REFERER'})
19					. q!" "! . _string($_[ENVS]->{'HTTP_USER_AGENT'})
20					. q!"!
21					}
22					;